# NOT RUN {
I0.orbit()
declination()
x <- declination(plot=FALSE)
sun.elev(x,lat=32.9)
tau <- tauGolden
# or alternatively
# tau <- read.tau(system.file("extdata","tauGolden.csv",package="renpow"))
Ibd <- beam.diffuse(tau)
I0.blackbody(T.sun=5800,wl.nm=seq(150,2500))
# }
Run the code above in your browser using DataLab